home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 2 Years / Tiger_Disk_2_Years_19xx_Tiger-Crew-Disk_de_Side_A.d64 / gag-noter v1.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  72 lines
  1. 0 poke788,52:poke657,128:s=53280:goto100
  2. 1 data"here are winni and icon of tigercrew on the keys to give you some info"
  3. 2 data"rmations  about this first basic-gag-noter! :     1) you only can chan"
  4. 3 data"ge typed chars until   the flashing of the screen! - typing    a char "
  5. 4 data"after flashing will take the     until this typed text in memory!     "
  6. 5 data"2) you only can change your text by        using the 'cursor-left-key'"
  7. 6 data" and         typing all chars a second time!      3) using 'clear scre"
  8. 7 data"en' - f2 - don't       only clear the screen, it also          clears "
  9. 8 data"the whole text in memory!     4) we wanna wish you a very happy time  "
  10. 9 data"   by using our shitty gag-noter !!              winni and icon / tc  "
  11. 98 ii=int(rnd(0)*14)+1:return
  12. 100 print"[147]";:pokes,6:pokes+1,6:poke53265,11
  13. 110 print"[155]gag noter v1.0"
  14. 120 print"1995 by winni & icon of tiger crew"
  15. 130 print"[159]r : read"
  16. 132 print"[154]e : edit note":print"d : directory":print"s : save"
  17. 133 print""
  18. 134 fori=1to39:print"[155][163]";:next
  19. 135 print"some infos about this lame noter:"
  20. 136 print"[155]this noter was written on 24+25/12/1995";
  21. 137 print" by the tc meeting in sinntal.
  22. 138 [153]"sysin the edit mode press f1 to end text":[153]"return to return to";
  23. 139 [153]" menu (without text)":[153]"f2 to clear screen.list"
  24. 140 [129]i[178]1[164]39:[153]"tab(";:[130]:[151]53265,27
  25. 141 [161]x$:[139]x$[178]""[167]141
  26. 150 [139]x$[178]"r"[167][141]2000:[137]100
  27. 160 [139]x$[178]"e"[167][141]2000:x[178]1:[137]330
  28. 161 [139]x$[178]"s"[167]3000
  29. 300 [139]x$[178]"d"[167][141]49000:[137]100
  30. 310 [137]141
  31. 330 [141]5000
  32. 331 [153]"":[151]214,16:[151]211,30:[158]58640:[153]"end!waitlist":[151]204,0
  33. 340 [161]a$:[139]a$[178]""[167]340
  34. 341 [139]a$[178]""[176]a$[178]"on"[176]a$[178]""[176]a$[178]""[167]340
  35. 342 [139]a$[178][199](13)[175]b$(1)[178]""[167][151]204,128:[137]100
  36. 343 [139]a$[178][199](13)[167]340
  37. 344 [139]a$[178]"cmd"[175]q[177]0[167]q[178]q[171]1:[153]a$;:b$(x)[178][200](b$(x),q):[137]340
  38. 345 [139]a$[178]"cmd"[175]q[178][179]0[167]340
  39. 346 [139]a$[178]""[167]340
  40. 347 [139]a$[178]"load"[167]340
  41. 348 [139]a$[178][199](18)[167]340
  42. 349 [139]a$[178][199](137)[167][141]5000:[153]"load":[137]330
  43. 350 [139]a$[178][199](133)[167][151]204,128:[137]1010
  44. 360 [153]a$;:b$(x)[178]b$(x)[170]a$:q[178][195](b$(x)):[139]q[177]69[167]x[178]x[170]1:q[178]0
  45. 361 [139]q[177]68[167][141]4000
  46. 365 [139]x[177]9[167][151]204,128:[137]1010
  47. 390 [137]340
  48. 1010 [139]b$(1)[178]""[176]b$(1)[178]" "[167]100
  49. 1011 [153]"load":[129]x[178]1[164]9:[153]x;"data";[199](34);b$(x);[199](34):[130]
  50. 1012 [153]"run"
  51. 1015 [153]"";
  52. 1020 [129]b[178]631[164]640:[151]b,13:[130]
  53. 1030 [151]198,10:[128]
  54. 2000 [153]"load":[129]t[178]1[164]9
  55. 2001 [135]a$:[153]a$;:[139]x$[178]"r"[167][141]98:[151]53281,ii:[129]jj[178]1[164]500:[130]
  56. 2002 [130]:[151]53281,6:[140]
  57. 2003 [139]x$[178]"e"[167][142]
  58. 2004 [151]198,0:[146]198,1:[151]198,0
  59. 2010 [142]
  60. 3000 fi$[178]"":[153]"load":[133]"filename : ";fi$
  61. 3010 [139]fi$[178]""[167]100
  62. 3020 [148]fi$,8:[138]
  63. 4000 [129]h[178]1[164]3:[129]g[178]0[164]15:[151]s,g:[151]s[170]1,g:[130]:[130]:[151]s,6:[151]s[170]1,6:[142]
  64. 5000 [129]k[178]1[164]9:b$(k)[178]"":[130]:x[178]1:[142]
  65. 49000 [153]"load":[159]1,8,0,"$":[151]781,1:[158]65478:[161]a$,a$:e$[178][199](0)
  66. 49010 [161]a$,a$,h$,l$:[139]st[167][158]65484:[160]1:[137]49045
  67. 49020 [153][198](h$[170]e$)[170]256[172][198](l$[170]e$);
  68. 49030 [161]a$,b$:[139]a$[167][153]a$b$;:[137]49030
  69. 49040 [153]a$:[137]49010
  70. 49045 [153]" press a key !list"
  71. 49050 [151]198,0:[146]198,1:[151]198,0:[153]"load":[142]
  72.